home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / misc / emu / wzonka_lad.lha / Wzonka-Lad / Wzonka-Lad Install < prev    next >
Encoding:
Text File  |  1998-04-06  |  7.6 KB  |  417 lines
  1. ; $VER: Wzonka-Lad Installer Script 0.99.3 (23-Jan-98)
  2. ; Installer made by Lennart Johannesson
  3. ; For comments, bugs (yes, I know there's still a lot of them)
  4. ; suggestions etc. write to: 95lenjo@ostrabo.uddevalla.se
  5.  
  6.  
  7. ;Ask where to place the Wzonka-Lad directory
  8.  
  9. (message "\nWelcome to Wzonka-Lad Installer!\n-----------------------\n\nThis program will install\n Wzonka-Lad 0.99.3\n on your Amiga\n\n (c) Ville Helin 1996-1998\nvhelin@cc.hut.fi\n\n")
  10.  
  11. (welcome)
  12.  
  13. (complete 0)
  14.  
  15. (set @default-dest 
  16.     (askdir (prompt "Where would you like me to create the\n\"Wzonka-Lad\" directory?")
  17.             (help @askdir-help)
  18.             (default "Ram:")
  19.             (newpath)
  20.     )
  21. )
  22.  
  23. ;Create Wzonka-Lad directory
  24.  
  25. (complete 7)
  26.  
  27. (set target
  28.     (tackon @default-dest (cat "Wzonka-Lad")))
  29.  
  30. (makedir target
  31.      (prompt "Creating directory:\n\""target"\"")
  32.     (help @makedir-help)
  33. )
  34.  
  35. (copyfiles
  36.         (dest @default-dest)
  37.     (source "icons/install/Wzonka-Lad.info")
  38.         (files))
  39.  
  40. (set @default-dest (target))
  41.  
  42. ;Install the executables
  43.  
  44. (complete 14)
  45.  
  46. (copyfiles
  47.     (prompt "Where would you like me to put the executables?")
  48.     (help @copyfiles-help)
  49.     (source "Wzonka-Lad FULL")
  50.     (dest @default-dest)
  51.     (files)
  52.     (infos)
  53.     (confirm)
  54. )
  55.  
  56. (copyfiles
  57.         (dest @default-dest)
  58.     (source "Wzonka-Lad FAST")
  59.         (files)
  60. )
  61.  
  62. (copyfiles
  63.         (dest @default-dest)
  64.     (source "Wzonka-Lad WARP")
  65.         (files)
  66. )
  67.  
  68. (copyfiles
  69.         (dest @default-dest)
  70.     (source "Wzonka-Lad.FULL")
  71.         (files)
  72. )
  73.  
  74. (copyfiles
  75.         (dest @default-dest)
  76.     (source "Wzonka-Lad.FAST")
  77.         (files)
  78. )
  79.  
  80. (copyfiles
  81.         (dest @default-dest)
  82.     (source "Wzonka-Lad.WARP")
  83.         (files)
  84. )
  85.  
  86. (copyfiles
  87.         (dest @default-dest)
  88.     (source "Palette Editor")
  89.         (files)
  90. )
  91.  
  92. (copyfiles
  93.         (dest @default-dest)
  94.     (source "icons/install/Wzonka-Lad FULL.info")
  95.         (files))
  96.  
  97. (copyfiles
  98.         (dest @default-dest)
  99.     (source "icons/install/Wzonka-Lad FAST.info")
  100.         (files))
  101.  
  102. (copyfiles
  103.         (dest @default-dest)
  104.     (source "icons/install/Wzonka-Lad WARP.info")
  105.         (files))
  106.  
  107. (copyfiles
  108.         (dest @default-dest)
  109.     (source "icons/install/Palette Editor.info")
  110.         (files))
  111.  
  112. (set @default-dest (target))
  113.  
  114. ;Install the documents
  115.  
  116. (complete 21)
  117.  
  118. (copyfiles
  119.     (prompt "Would you like to install the documents?")
  120.     (help @copyfiles-help)
  121.     (source "Wzonka-Lad Guide")
  122.     (dest @default-dest)
  123.     (files)
  124.     (confirm)
  125. )
  126.  
  127. (copyfiles
  128.         (dest @default-dest)
  129.     (source "icons/install/Wzonka-Lad Guide.info")
  130.         (files))
  131.  
  132. ;Install controlpad.library
  133.  
  134. (complete 35)
  135.  
  136. (set @default-dest "libs:")
  137.  
  138. (copylib
  139.     (prompt "Install controlpad.library?\n(Required for Sega Joypad!)")
  140.     (help @copylib-help)
  141.     (source "libs/controlpad.library")
  142.     (dest @default-dest)
  143.     (confirm)
  144. )
  145.  
  146.  
  147. ;Install the fonts
  148.  
  149. (complete 42)
  150.  
  151. (set @default-dest "FONTS:")
  152.  
  153. (copyfiles
  154.     (prompt "And the fonts...\nWhere do I put them?")
  155.     (help @copyfiles-help)
  156.     (source "fonts/")
  157.     (dest @default-dest)
  158.     (all)
  159.     (confirm)
  160. )
  161.  
  162. ;Install the sample cartridge(s)
  163.  
  164. (complete 49)
  165.  
  166. (set @default-dest (target))
  167.  
  168. (set @default-dest
  169. (askdir    (prompt "Where would you like to store your cartridges?\n(A drawer called \"cartridges\" will be made!)")
  170.     (help @askdir-help)
  171.     (default @default-dest)
  172.     (newpath)
  173.     )
  174. )
  175.  
  176. (set @default-dest
  177.     (tackon @default-dest (cat "cartridges")))
  178.  
  179. (makedir @default-dest
  180.     (prompt "Creating directory...")
  181.     (help @makedir-help)
  182. )
  183.  
  184. (copyfiles
  185.     (prompt "Install the sample cartridge(s) to:\n")
  186.     (help @copyfiles-help)
  187.     (source "cartridges")
  188.     (dest @default-dest)
  189.     (confirm)
  190.     (all)
  191. )
  192.  
  193. ;Install the sample battery ram(s)
  194.  
  195. (complete 49)
  196.  
  197. (set @default-dest (target))
  198.  
  199. (set @default-dest
  200. (askdir    (prompt "Where would you like to store your battery ram files?\n(A drawer called \"battery_rams\" will be made!)")
  201.     (help @askdir-help)
  202.     (default @default-dest)
  203.     (newpath)
  204.     )
  205. )
  206.  
  207. (set @default-dest
  208.     (tackon @default-dest (cat "battery_rams")))
  209.  
  210. (makedir @default-dest
  211.     (prompt "Creating directory...")
  212.     (help @makedir-help)
  213. )
  214.  
  215. (copyfiles
  216.     (prompt "Install the sample battery ram file(s) to:\n")
  217.     (help @copyfiles-help)
  218.     (source "battery_rams")
  219.     (dest @default-dest)
  220.     (confirm)
  221.     (all)
  222. )
  223.  
  224. ;Install the sample prefs
  225.  
  226. (complete 56)
  227.  
  228. (set @default-dest (target))
  229.  
  230. (set @default-dest
  231. (askdir    (prompt "And your cartridges prefs files?\n(A drawer called \"prefs\" will be made!)")
  232.     (help @askdir-help)
  233.     (default @default-dest)
  234.     (newpath)
  235.     )
  236. )
  237.  
  238. (set @default-dest
  239.     (tackon @default-dest (cat "prefs")))
  240.  
  241. (makedir @default-dest
  242.     (prompt "Creating directory...")
  243.     (help @makedir-help)
  244. )
  245.  
  246. (copyfiles
  247.     (prompt "Install the sample prefs-file to:\n")
  248.     (help @copyfiles-help)
  249.     (source "prefs")
  250.     (dest @default-dest)
  251.     (confirm)
  252.     (all)
  253. )
  254.  
  255. ;Install the sample vgb colour files
  256.  
  257. (complete 63)
  258.  
  259. (set @default-dest (target))
  260.  
  261. (set @default-dest
  262. (askdir    (prompt "And the VGB (tm) example colour files?\n(A drawer called \"vgb_colour_schemes\" will be made!)")
  263.     (help @askdir-help)
  264.     (default @default-dest)
  265.     (newpath)
  266.     )
  267. )
  268.  
  269. (set @default-dest
  270.     (tackon @default-dest (cat "vgb_colour_schemes")))
  271.  
  272. (makedir @default-dest
  273.     (prompt "Creating directory...")
  274.     (help @makedir-help)
  275. )
  276.  
  277. (copyfiles
  278.     (prompt "Install the VGB (tm) example colour files to:\n")
  279.     (help @copyfiles-help)
  280.     (source "vgb_colour_schemes")
  281.     (dest @default-dest)
  282.     (confirm)
  283.     (all)
  284. )
  285.  
  286. ;Install the extra Icons
  287.  
  288. (complete 70)
  289.  
  290. (set @default-dest (target))
  291.  
  292. (set @default-dest
  293. (askdir    (prompt "Where do you want the extra icons?\n(A drawer called \"icons\" will be made!)")
  294.     (help @askdir-help)
  295.     (default @default-dest)
  296.     (newpath)
  297.         )
  298.     )
  299.  
  300. (set @default-dest
  301.     (tackon @default-dest (cat "icons")))
  302.  
  303. (makedir @default-dest
  304.     (prompt "Creating directory...")
  305.     (help @makedir-help)
  306. )
  307.  
  308. (copyfiles
  309.     (prompt "Install the extra icons to:\n")
  310.     (help @copyfiles-help)
  311.     (source "icons")
  312.     (dest @default-dest)
  313.     (confirm)
  314.     (all)
  315. )
  316.  
  317. ;Install the tools directory
  318.  
  319. (complete 77)
  320.  
  321. (set @default-dest (target))
  322.  
  323. (set @default-dest
  324. (askdir    (prompt "Where do you want the extra tools?\n(A drawer called \"tools\" will be made!)")
  325.     (help @askdir-help)
  326.     (default @default-dest)
  327.     (newpath)
  328.         )
  329.     )
  330.  
  331. (set @default-dest
  332.     (tackon @default-dest (cat "tools")))
  333.  
  334. (makedir @default-dest
  335.     (prompt "Creating directory...")
  336.     (help @makedir-help)
  337. )
  338.  
  339. (copyfiles
  340.     (prompt "Install the extra tools to:\n")
  341.     (help @copyfiles-help)
  342.     (source "tools")
  343.     (dest @default-dest)
  344.     (confirm)
  345.     (all)
  346. )
  347.  
  348. ;Install the gbs directory and an example gbs file
  349.  
  350. (complete 84)
  351.  
  352. (set @default-dest (target))
  353.  
  354. (set @default-dest
  355. (askdir    (prompt "And the gbs directory?\n(A drawer called \"gbs\" will be made!)")
  356.     (help @askdir-help)
  357.     (default @default-dest)
  358.     (newpath)
  359.         )
  360.     )
  361.  
  362. (set @default-dest
  363.     (tackon @default-dest (cat "gbs")))
  364.  
  365. (makedir @default-dest
  366.     (prompt "Creating directory...")
  367.     (help @makedir-help)
  368. )
  369.  
  370. (copyfiles
  371.     (prompt "Install an gbs example file to:\n")
  372.     (help @copyfiles-help)
  373.     (source "gbs")
  374.     (dest @default-dest)
  375.     (confirm)
  376.     (all)
  377. )
  378.  
  379. ;Install the favourites directory and the favourite list
  380.  
  381. (complete 91)
  382.  
  383. (set @default-dest (target))
  384.  
  385. (set @default-dest
  386. (askdir    (prompt "And the favourites directory?\n(A drawer called \"favourites\" will be made!)")
  387.     (help @askdir-help)
  388.     (default @default-dest)
  389.     (newpath)
  390.         )
  391.     )
  392.  
  393. (set @default-dest
  394.     (tackon @default-dest (cat "favourites")))
  395.  
  396. (makedir @default-dest
  397.     (prompt "Creating directory...")
  398.     (help @makedir-help)
  399. )
  400.  
  401. (copyfiles
  402.     (prompt "Install an favourite.list example to:\n")
  403.     (help @copyfiles-help)
  404.     (source "favourites")
  405.     (dest @default-dest)
  406.     (confirm)
  407.     (all)
  408. )
  409.  
  410. ;Write out some copyright stuff
  411.  
  412. (complete 100)
  413.  
  414. (set @default-dest (target))
  415.  
  416. (message "\nEnjoy your Gameboy (tm) emulator!\n\n(c) Ville Helin 1996-1998\nvhelin@cc.hut.fi\n\n For comments about the installer mail to:\nLennart Johannesson\n95lenjo@ostrabo.uddevalla.se")
  417.